shr.el (shr-insert): Minor shr white space rendering tweak

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index d0d354073679d5f01044f95064f836e011da3b1d..878b9b9eb6b4a615dafe40cb13c5429f7d728471 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-insert): Update the text state properly to avoid
+       inserting spurious paragraph starts.
+
 2012-03-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-update-marks): Don't propagate marks unless

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 53c0063de2ea39895a7d627f5a20beb6fd9b3b52..c2040a9b8cffef94b8418f9496b85ec9c3e3d298 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -332,6 +332,7 @@ the URL of the image to the kill buffer instead."
       (unless shr-start
        (setq shr-start (point)))
       (insert elem)
+      (setq shr-state nil)
       (let (found)
        (while (and (> (current-column) shr-width)
                    (progn